00050	BUF1 EQU 1500
00060	BUF2 EQU 500
00070	BUF3 EQU 2500
00080	PRINTER EQU 18
00100	START ENT2 495
00200	     ENT3 1
00300	     ENT6 6
00400	     ENT4 1
00500	     ST6 BUF1+1
00600	LOOP1 INC4 1
00700	     CMP4 =999=
00800	     JGE DONE
00900	     ENTA 46
01000	     SUB BUF1,4
01100	     INC2 204,3
01200	     STA BUF3,2
01300	     CMP2 200,3
01400	     JNE BEND
01500	     LDA 200,3
01600	     ADD 204,3
01700	     STA 200,3
01800	     DEC3 3
01900	     J3P *+2
02000	     INC3 4
02100	     LDA BUF3,2
02200	BEND CMPA =46=
02300	     JNE LOOP1
02400	     ENTA 0,4
02500	     CHAR
02600	     STX BUF2,1
02700	     INC1 1
02800	    ENT5 0,4
02900	LOOP2 INC5 0,4
03000	     CMP5 =999=
03100	     JGE LOOP1
03200	     ST6 BUF1,5
03300	     JMP LOOP2
03400	DONE ENT6 0
03500	     ST1 197
03600	LOOP3A ENT1 23
03700	     INC6 29
03800	LOOP3 LDA BUF2,6
03900	     STA BUF1,1(2:5)
04000	     LDA BUF2-1,6
04100	     STA BUF1,1(1:1)
04200	     SRA 1
04300	     STA BUF1-1,1(3:5)
04400	     LDA BUF2-2,6
04500	     STA BUF1-1,1(1:2)
04600	     SRA 2
04700	     STA BUF1-2,1(4:5)
04800	     LDA BUF2-3,6
04900	     STA BUF1-2,1(1:3)
05000	     SRA 3
05100	     STA BUF1-3,1(5:5)
05200	     LDA BUF2-4,6
05300	     STA BUF1-3,1(1:4)
05400	     DEC6 5
05500	     DEC1 4
05600	     J1P LOOP3
05700	     JBUS *(PRINTER)
05800	     OUT BUF1(PRINTER)
05900	     CMP6 197
06000	     JLE LOOP3A
06100	     LDA 202
06200	     INCA 32
06300	     STA 202
06400	     ENT5 18
06500	     ENT6 32
06550	     JBUS *(PRINTER)
06600	L4A  ENT1 6
06700	L4   DEC6 1
06800	     LDA BUF3,6
06900	     ST5 *+1(4:4)
07000	     STA BUF1,1
07100	     DEC5 9
07200	     J5P L4
07300	     DEC1 1
07400	     ENT5 45
07500	     INC6 64
07600	     J1NN L4
07800	     OUT BUF1(PRINTER)
07850	     JBUS *(PRINTER)
07900	     CMP6 202
08000	     JL L4A
08100	     HLT
08200	     ORIG 201
08300	     CON 496
08400	     CON 527
08500	     CON 494
08600	     CON 463
08700	     CON 1
08800	     CON 32
08900	     CON -1
09000	     CON -32
09100	     END START